home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerMacOberon feb96 / System / Kepler5.Sym < prev    next >
Encoding:
Text File  |  1995-11-30  |  1.8 KB  |  6 lines  |  [TEXT/.Ob4]
  1. ˜∏’ŸøKepler5FocusStarFocusStar2Planet¿Ÿ’øKeplerGraphs |ObjectDescObject¸{self¬⁄‘øKeplerPortsPort˚{P Draw¸{selfã≈¶¶Filesreseof tRider˚{R Read¸{self˚{R WritenofptsStar
  2. pConstellationnext tConsDesc¸{self˚{R Read¸{selfState¸{self˚{R     Write tPlanetDesc¸{self˚{F DrawSelStar pSelStarDesc¸{self˚{F Draw |StarDesc¸{self˚{F Draw xStarDesc2¸{self˚{F Draw NewFocusStar NewFocusStar2 NewPlanet NewSelStarܵàflDisplay Frame dsc nextX
  3. Y WH ¸{f x!!FrameMsg!˚{msg     "Handler"handle t##FrameDescx0y0scale ext #$|$$ $PortDesc¸{P˚{x$CX¸{P˚{y$CY¸{P˚{X$Cx¸{P˚{Y$Cy¸{P˚{x˙{y˘{r¯{col˜{mode $DrawCircle¸{P˚{x˙{y˘{a¯{b˜{colˆ{mode $DrawEllipse¸{P˚{x1˙{y1˘{x2¯{y2˜{colˆ{mode $DrawLine¸{P˚{x˙{y˘{w¯{h˜{colˆ{mode $DrawRect¸{P˚{x˙{y %˘{sêØâflFonts&Font&˜{fontˆ{colı{mode $    DrawString¸{P˚{x˙{y˘{r¯{col˜{patˆ{mode $    
  4. FillCircle¸{P˚{x1˙{y1˘{x2¯{y2˜{x3ˆ{y3ı{x48y4<col¿patƒmode $
  5. FillQuad¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode $ FillRect$xyrefcntsel next x'''StarDesc¸{self˚{P 'Draw¸{self˚{R 'Read¸{self˚{R 'Write' #
  6.  (Name(name height"minX$maxX&minY(maxY)Font),raster0 4|**FontDesc&* |++Bytes)+